home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / winmaps.ps < prev    next >
Text File  |  1994-07-28  |  4KB  |  108 lines
  1. %    Copyright (C) 1993 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % winmaps.ps - make maps between PostScript encodings and Windows
  19. % character sets.
  20.  
  21. % Define the two Windows encodings.
  22.  
  23. /ANSIEncoding
  24.   ISOLatin1Encoding 256 array copy
  25.   dup 16#90 /.notdef put
  26.   16#93 1 16#9f { 2 copy /.notdef put pop } for
  27. def
  28.  
  29. /OEMEncoding [
  30.   /.notdef /.notdef /.notdef /heart /diamond /club /spade /bullet
  31.     8 { /.notdef } repeat
  32.   /.notdef /.notdef /.notdef /.notdef /paragraph /section /.notdef /.notdef
  33.     /arrowup /arrowdown /arrowright /arrowleft /.notdef /arrowboth /.notdef /.notdef
  34.   StandardEncoding 32 96 getinterval aload pop
  35.   /Ccedilla /udieresis /eacute /acircumflex /adieresis /agrave /aring /ccedilla
  36.     /ecircumflex /edieresis /egrave /idieresis /igrave /Adieresis /Aring
  37.   /Eacute /ae /AE /ocircumflex /odieresis /ograve /ucircumflex /ugrave
  38.     /ydieresis /Odieresis /Udieresis /cent /sterling /yen /.notdef /florin
  39.   /aacute /iacute /oacute /uacute /ntilde /Ntilde /ordfeminine /ordmasculine
  40.     /questiondown /.notdef /logicalnot /onehalf /onequarter /exclamdown /guillemotleft /guillemotright
  41.   48 { /.notdef } repeat
  42.   /alpha /beta /Gamma /Pi /Sigma /sigma /mu /tau
  43.     /Phi /Theta /Omega /delta /infinity /phi /element /intersection
  44.   /equivalence /plusminus /greaterequal /lessequal /integraltp /integralbt /divide /.notdef
  45.     /degree /dotmath /periodcentered /radical /.notdef /twosuperior /.notdef /.notdef
  46. ] def
  47.  
  48. % Utility procedures
  49.  
  50. /invertencoding        % <array> invertencoding <dict>
  51.  { 256 dict exch dup length 1 sub -1 0
  52.     {    % stack: dict array index
  53.       2 copy get /.notdef ne
  54.        { 2 copy get exch 3 index 3 1 roll put }
  55.        { pop }
  56.       ifelse
  57.     } for
  58.    pop
  59.  } def
  60.  
  61. /pmarray 256 array def
  62. /printmap        % <chars> <decode> printmap -
  63.  { mark 3 1 roll exch
  64.     { 2 copy known { 1 index exch get } { pop 0 } ifelse exch
  65.     }
  66.    forall pop
  67.    pmarray 0 counttomark 2 sub getinterval astore
  68.    ([) print dup length =only 0 exch (] = {\n  ) exch
  69.     { exch print =only
  70.       1 add 15 and dup 0 eq { (,\n  ) } { (, ) } ifelse
  71.     }
  72.    forall pop pop (\n};\n) print pop
  73.  } def
  74.  
  75. /decodeStd StandardEncoding invertencoding def
  76. /decodeISO ISOLatin1Encoding
  77.     % Remove the redundant characters
  78.   dup length array copy
  79.   [8#222 8#225 8#230 8#233 8#240] { 2 copy /.notdef put pop } forall
  80. invertencoding def
  81. /decodeSym SymbolEncoding invertencoding def
  82.  
  83. /decodeANSI ANSIEncoding invertencoding def
  84. /decodeOEM OEMEncoding invertencoding def
  85.  
  86. % Construct the map from Symbol to OEM.
  87.  
  88. (\nprivate const byte far_data gs_map_symbol_to_oem) print
  89. SymbolEncoding decodeOEM printmap
  90.  
  91. % Construct the map from ISOLatin1 to OEM.
  92.  
  93. (\nprivate const byte far_data gs_map_iso_to_oem) print
  94. ISOLatin1Encoding decodeOEM printmap
  95.  
  96. % Construct the map from Standard to ISOLatin1.
  97.  
  98. (\nprivate const byte far_data gs_map_std_to_iso) print
  99. StandardEncoding decodeISO printmap
  100.  
  101. % Construct the map from ISOLatin1 to Standard.
  102. % The Windows driver doesn't need this, but the X11 driver does.
  103.  
  104. (\nprivate const byte far_data gs_map_iso_to_std) print
  105. ISOLatin1Encoding decodeStd printmap
  106.  
  107. quit
  108.